Loadstar 30/030.d81/sign language

Commodore BASIC | 1986-01-01 | 4.2 KB | 143 lines

10 rem   sign language
20 ifx=0thenx=1:load"unpacker",8,1
30 ifx=1thenx=2:load"alpha.lnk",8,1
35 ifx=2thenx=3:load"hi-res text.o",8,1
40 poke52,106: rem fretop to protect shps
42 poke56,64:clr: rem move basic down
50 clr:dims(25)
55 forx=0to25:ifx=9then58
57 s(x)=x:ifx>8thens(x)=x-1
58 next:sp=200:ss$="medium"
60 gosub10000:print""tab(9)"[158][211]ign [204]anguage [212]utorial"
65 printtab(12)"by [193]lan [199]ardner"
66 printtab(9)"[199]raphics by [202]erry [202]ones"
70 :
80 print"[200]ere are your options:"
82 print" [212][146]ranslate to [211]ign [204]anguage"
84 print" [209][146]uiz [205]ode"
86 print" [195][146]hange [212]ranslate [211]peed"
87 print" [210][146]eturn to [204][207][193][196][211][212][193][210]"
88 print"[215]hich would you like?";
90 poke198,0:wait198,1:geta$:ifa$<>"t"anda$<>"q"anda$<>"c"anda$<>"r"then90
95 :
97 ifa$="t"then1000
98 ifa$="q"then2000
99 ifa$="c"then4000
100 :
102 open15,8,15,"r0:setup=setup":input#15,e:close15:ife<>63thenend
105 load"hello connect",8
200 :
1000 rem   translate to sign language
1010 print"[147]  [204]etters to [211]ign [204]anguage [212]ranslation"
1020 print"  [207].[203]., [217]ou supply a phrase and [201]'ll"
1022 print"translate it to sign language before"
1024 print"your very eyes or just press [210][197][212][213][210][206] to return to [205]ain [205]enu."
1030 print"[197]nter your phrase. (up to 80 characters)"
1040 f$="":gosub24800:f$=s$:iff$=""then60
1050 poke249,224:poke250,204
1055 poke251,0:poke252,64:poke253,0:poke254,0:poke255,29:sys51462
1060 poke253,12:poke254,6:sys51459:fordl=1to400:next:s$=""
1065 :
1070 forx=1tolen(f$)
1080 a$=mid$(f$,x,1):a=asc(a$+chr$(0))
1090 ifa>128thena$=chr$(a-128)
1100 ifa$<"a"ora$>"z"then1130
1105 ifa$=s$ors=25thenpoke253,0:poke254,0:poke255,29:sys51462
1107 sys50759,chr$(asc(a$)+128),152,168:
1108 poke249,224:poke250,204
1109 poke251,0:poke252,64:poke253,12:poke254,6
1110 a=asc(a$)-65:ifa=9thengosub3000:goto1122 :rem "j"
1112 ifa=25thengosub3500:goto1122 :rem "z"
1114 poke253,12:poke254,6:poke255,s(a):sys51462
1122 poke253,12:poke254,6
1130 fordl=0tosp:nextdl
1135 s$=a$:s=a:next
1140 :
1145 sys50759,"press a key to continue",64,180
1150 poke198,0:wait198,1:poke198,0:sys51459:goto1000
2000 rem   quiz mode
2010 print"[147]"
2020 print"  [201]n this mode, [201] will show you a"
2022 print"letter in sign language and ask you to"
2024 print"tell me what letter you just saw."
2026 print"[208]retty simple, huh?"
2028 print"  [207]h, by the way... [201] [215][201][204][204] be keeping"
2030 print"up with your progress."
2040 print"   <[208]ress a key when you are ready.>"
2045 poke198,0:wait198,1:poke198,0:print"[147]";:fordl=1to50:nextdl
2050 poke249,224:poke250,204:poke251,0:poke252,64
2060 na=0:nw=0:poke253,0:poke254,0:poke255,29:sys51462:poke253,12:poke254,6
2070 poke253,0:poke254,0:poke255,29:sys51462:poke253,12:poke254,6
2072 sys51459:poke253,12:poke254,6:a=int(rnd(1)*26)
2080 ifa=9thengosub3000:goto2100
2082 ifa=25thengosub3500:goto2100
2090 poke255,s(a):sys51462
2100 fordl=1tosp*2:next:na=na+1
2110 sys51459:print"[147][215]hich letter was that ? ";
2112 poke198,0:wait198,1:getf$:printf$
2120 ifasc(f$+chr$(0))=65+athenprint"[212]hat's correct...":goto2140
2130 print"[212]hat's wrong... [212]he letter was: ";chr$(a+193):nw=nw+1
2140 print"       <[208]ress a key to continue>"
2145 print"          <[208]ress '[209]' to [209]uit>"
2150 poke198,0:wait198,1:geta$:ifa$="q"then2200
2160 print"[147]";:fordl=1to50:nextdl:goto2070
2200 print" [207]ut of"na"letters";:ifna=1thenprint"[157]";
2210 print" tested, you got"
2220 printna-nw"correct."
2230 :
2240 av=(na-nw)/na:print
2250 ifav>.9thenprint"[212]hat's very good.":goto2300
2255 ifav>.8thenprint"[212]hat's not too shabby.":goto2300
2260 ifav>.7thenprint"[215]ell, you're getting there.":goto2300
2265 ifav>.6thenprint"[212]hat's really not that good.":goto2300
2270 print"[212]oday's not your day, is it?"
2300 print"    <[208]ress a key to go to the menu.>"
2310 poke198,0:wait198,1:poke198,0:goto60
2999 end
3000 rem   display "j"
3005 poke253,12:poke254,6
3010 poke255,25:sys51462
3012 poke255,26:sys51462
3014 poke255,27:sys51462
3016 poke255,28:sys51462
3018 return
3500 rem   display "z"
3510 poke253,12:poke254,6
3515 poke255,s(a):sys51462
3517 for mo=12 to 15:poke253,mo:sys51462::next
3520 h=6
3530 for mo=15 to 12 step-1:poke253,mo:poke254,h:sys51462:h=h+1:next
3540 for mo=12 to 15:poke253,mo:sys51462:next
3550 return
4000 rem  change translate speed
4010 print"[147]       [208]resent speed is "ss$"."
4015 print"   [207]ptions are [211]low, [205]edium, or [198]ast"
4020 print"     [211]elect new speed: [211], [205], or [198]"
4022 poke198,0:wait198,1:getsp$:ifsp$<>"s"andsp$<>"m"andsp$<>"f"then4022
4030 ifsp$="s"thenss$="slow":sp=500
4032 ifsp$="m"thenss$="medium":sp=200
4034 ifsp$="f"thenss$="fast":sp=50
4050 goto60
9998 rem *** border ***
10000 poke53281,0:poke53280,6
10005 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
10010 fort=1to23:print"[221][157][157][221]";:next
10020 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":poke2023,125
10030 poke2023+54272,1:return
24800 l$="a":h$="z":l=79:gosub25000:return
24900 l$="a":h$="z":l=79:gosub25000:return
24998 rem *** input string ***
25000 ls=0:s$=""
25005 print" [157]>[157]";
25010 getr$:ifr$<>""then25040
25020 print" [157]<[157]";
25030 getr$:ifr$=""then25005
25040 ifr$=chr$(20)then25200
25045 ifr$=chr$(13)then return
25050 if(r$<l$orr$>h$)andr$<>" "then25005
25055 ls=ls+1:ifls>lthenls=l:goto25005
25060 s$=s$+r$:printr$;:goto25005
25200 ls=ls-1:ifls<0thenls=0:goto25220
25210 print"[157]  [157][157]";
25220 s$=left$(s$,ls):goto25005